$file = $ARGV[0];
open (FILE, "$file") || die "$file: $!"; 
while ($line = <FILE>) {
	if (($line !~ /.*puts\s.*/ && $line !~ /.*set_remove\s.*/) || $line =~ /.*set_dont_touch\s.*/){
		print  $line;
	}
}

close FILE;
